![]() | FRACCIONES CONTINUAS |
r | a | √r |
2 | 1 | √2 = 1 + 1/(1 + √2) |
2 | 2 | √2 = 2 + (−2)/(2 + √2) |
2 | 3 | √2 = 3 + (−7)/(3 + √2) |
2 | 4 | √2 = 4 + (−14)/(4 + √2) |
n1
/n2
es el siguiente:
〈( cocientes(n1 n2) =
( (s = ()) // secuencia resultado a devolver (inicialmente, vacía)
(m1° = n1) // numerador inicial
(m2° = n2) // denominador inicial
( (mc° = m1÷m2) // cociente
(s° = (s↓ mc) // incluir cociente en el resultado
(mr° = m1 − m2*mc) // resto
(mr = 0) → ¡s // si el resto es cero, devolver resultado
(m1° = m2) // nuevo numerador
(m2° = mr) // nuevo denominador
)☆
)!
)〉
cocientes(179 42) // ev. (4 3 1 4 2)
n1
, n2
) del número racional equivalente.
Cociente | Valor |
2 | v=2 |
4 | v = 4 +1/v = 4 + 1/2 = 9/2 |
1 | v = 1 + 1/v = 1 + 2/9 = 11/9 |
3 | v = 3 + 1/v = 3 + 9/11 = 42/11 |
4 | v = 4 + 1/v = 4 + 11/42 = 179/42 |
〈( fraccion(cocientes) =
( (i° = cocientes#) // numero de cocientes
(nc° = cocientes\i) // cociente inicial
(nr1° = nc) // numerador inicial del resultado
(nr2° = 1) // denominador inicial del resultado
( (i° = i-1) // apuntar al cociente anterior
(i=0 → ¡(nr1 nr2)) // si fin de cocientes, devolver resultado
(n1° = nr1) // nuevo denominador
(n2° = nr2)
(nc° = cocientes\i) // nuevo cociente
(nr1° = nc + n1) // nuevo numerador del resultado
(nr2 = n2) // nuevo denominador del resultado
)★
)!
)〉
fraccion(4 3 1 5 11) // ev. (179 42)